/ Archive Magazine CD 1995 / Archive Magazine CD 1995.iso / discs / prog_disc / volume_2 / issue_03 / pi

< prev

next >

MacOS 8.1

Win98

DOS

view JSON data

view as text

+--------+-------------------------+-------------------------+--------+--------+
|00000000| 0d 00 0a 11 f4 20 3e 24 | 2e 41 42 43 43 6f 6d 50 |..... >$|.ABCComP|
|00000010| 49 0d 00 14 2d f4 20 53 | 54 41 52 54 20 4f 46 20 |I...-. S|TART OF |
|00000020| 50 52 4f 47 52 41 4d 20 | 20 49 4e 49 54 49 41 4c |PROGRAM | INITIAL|
|00000030| 49 53 45 20 56 41 52 49 | 41 42 4c 45 53 20 0d 00 |ISE VARI|ABLES ..|
|00000040| 1e 06 3a 20 0d 00 28 3d | 46 31 25 3d 30 3a 4c 31 |..: ..(=|F1%=0:L1|
|00000050| 25 3d 30 3a 4d 31 25 3d | 30 3a 50 32 25 3d 30 3a |%=0:M1%=|0:P2%=0:|
|00000060| 51 31 25 3d 30 3a 58 31 | 25 3d 30 3a 4b 31 25 3d |Q1%=0:X1|%=0:K1%=|
|00000070| 30 3a 44 50 25 3d 30 3a | 63 6f 75 6e 74 25 3d 30 |0:DP%=0:|count%=0|
|00000080| 20 0d 00 32 08 54 3d 30 | 20 0d 00 3c 16 42 25 3d | ..2.T=0| ..<.B%=|
|00000090| 31 30 30 30 30 30 3a 20 | f4 20 42 41 53 45 20 0d |100000: |. BASE .|
|000000a0| 00 46 06 3a 20 0d 00 50 | 3c db 3a f1 22 45 76 61 |.F.: ..P|<.:."Eva|
|000000b0| 6c 75 61 74 69 6e 67 20 | 50 49 3a 22 27 3a e8 22 |luating |PI:"':."|
|000000c0| 48 6f 77 20 6d 61 6e 79 | 20 70 6c 61 63 65 73 3f |How many| places?|
|000000d0| 20 22 44 50 25 3a 4c 25 | 3d 44 50 25 81 35 2b 32 | "DP%:L%|=DP%.5+2|
|000000e0| 20 0d 00 5a 34 de 20 63 | 6f 75 6e 74 25 20 31 32 | ..Z4. c|ount% 12|
|000000f0| 2c 41 25 28 4c 25 2b 32 | 29 2c 42 25 28 4c 25 2b |,A%(L%+2|),B%(L%+|
|00000100| 32 29 2c 58 25 28 4c 25 | 2b 32 29 2c 59 25 28 4c |2),X%(L%|+2),Y%(L|
|00000110| 25 2b 32 29 20 0d 00 64 | 29 db 3a f1 22 45 76 61 |%+2) ..d|).:."Eva|
|00000120| 6c 75 61 74 69 6e 67 20 | 50 49 20 20 74 6f 20 22 |luating |PI  to "|
|00000130| c3 44 50 25 22 20 70 6c | 61 63 65 73 22 20 0d 00 |.DP%" pl|aces" ..|
|00000140| 6e 0d f1 c4 33 30 2c 22 | 2d 22 29 0d 00 78 06 3a |n...30,"|-")..x.:|
|00000150| 20 0d 00 82 08 d1 3d 30 | 20 0d 00 8c 0a f3 20 4e | .....=0| ..... N|
|00000160| 31 25 20 0d 00 96 0f e3 | 56 25 3d 31 20 b8 4e 31 |1% .....|V%=1 .N1|
|00000170| 25 20 0d 00 a0 0a f2 74 | 65 72 6d 20 0d 00 aa 06 |% .....t|erm ....|
|00000180| ed 20 0d 00 b4 0d f1 c4 | 33 30 2c 22 2d 22 29 0d |. ......|30,"-").|
|00000190| 00 be 33 54 3d 91 20 81 | 31 30 30 3a 48 25 3d 54 |..3T=. .|100:H%=T|
|000001a0| 20 81 33 36 30 30 3a 4d | 25 3d 28 54 20 83 33 36 | .3600:M|%=(T .36|
|000001b0| 30 30 29 81 36 30 3a 53 | 25 3d 28 54 20 83 36 30 |00).60:S|%=(T .60|
|000001c0| 29 20 0d 00 c8 15 f2 6f | 75 74 3a f4 20 50 52 49 |) .....o|ut:. PRI|
|000001d0| 4e 54 2d 4f 55 54 20 0d | 00 d2 26 f1 22 54 49 4d |NT-OUT .|..&."TIM|
|000001e0| 45 3a 20 22 c3 54 22 20 | 28 22 c3 48 25 22 3a 22 |E: ".T" |(".H%":"|
|000001f0| c3 4d 25 22 3a 22 c3 53 | 25 22 29 22 20 0d 00 dc |.M%":".S|%")" ...|
|00000200| 35 f1 22 54 45 52 4d 53 | 3a 20 22 c3 21 63 6f 75 |5."TERMS|: ".!cou|
|00000210| 6e 74 25 22 2f 22 c3 21 | 28 63 6f 75 6e 74 25 2b |nt%"/".!|(count%+|
|00000220| 34 29 22 2f 22 c3 21 28 | 63 6f 75 6e 74 25 2b 38 |4)"/".!(|count%+8|
|00000230| 29 20 0d 00 e6 06 3a 20 | 0d 00 f0 06 e0 20 0d 00 |) ....: |..... ..|
|00000240| fa 06 3a 20 0d 01 04 1f | f4 20 44 41 54 41 20 46 |..: ....|. DATA F|
|00000250| 4f 52 20 41 52 43 54 41 | 4e 20 52 4f 55 54 49 4e |OR ARCTA|N ROUTIN|
|00000260| 45 53 20 0d 01 0e 08 dc | 20 33 20 0d 01 18 0d dc |ES .....| 3 .....|
|00000270| 20 38 2c 32 34 2c 31 20 | 0d 01 22 0d dc 20 35 37 | 8,24,1 |..".. 57|
|00000280| 2c 38 2c 31 20 0d 01 2c | 0e dc 20 32 33 39 2c 34 |,8,1 ..,|.. 239,4|
|00000290| 2c 31 20 0d 01 36 06 3a | 20 0d 01 40 19 f4 20 4d |,1 ..6.:| ..@.. M|
|000002a0| 4f 4e 49 54 4f 52 49 4e | 47 20 52 4f 55 54 49 4e |ONITORIN|G ROUTIN|
|000002b0| 45 20 0d 01 4a 0b dd f2 | 74 65 72 6d 20 0d 01 54 |E ..J...|term ..T|
|000002c0| 0f f3 58 25 2c 4d 25 2c | 46 31 25 20 0d 01 5e 22 |..X%,M%,|F1% ..^"|
|000002d0| f2 61 72 63 74 61 6e 3a | 21 28 63 6f 75 6e 74 25 |.arctan:|!(count%|
|000002e0| 2b 34 2a 56 25 2d 34 29 | 3d 4a 25 3a f1 20 0d 01 |+4*V%-4)|=J%:. ..|
|000002f0| 68 0b f2 6d 75 6c 78 6d | 20 0d 01 72 1a e7 46 31 |h..mulxm| ..r..F1|
|00000300| 25 3d 31 3a f2 61 64 64 | 79 78 3a 8b f2 73 75 62 |%=1:.add|yx:..sub|
|00000310| 79 78 20 0d 01 7c 06 e1 | 20 0d 01 86 06 3a 20 0d |yx ..|..| ....: .|
|00000320| 01 90 13 f4 20 41 52 43 | 54 41 4e 20 28 31 2f 58 |.... ARC|TAN (1/X|
|00000330| 29 20 0d 01 9a 0d dd f2 | 61 72 63 74 61 6e 20 0d |) ......|arctan .|
|00000340| 01 a4 2e f1 c2 22 20 20 | 22 2b c3 4d 25 2c 33 29 |....."  |"+.M%,3)|
|00000350| 22 2a 41 52 43 54 41 4e | 28 31 2f 22 c3 58 25 22 |"*ARCTAN|(1/".X%"|
|00000360| 29 20 22 8a 31 38 29 22 | 3a 20 22 3b 20 0d 01 ae |) ".18)"|: "; ...|
|00000370| 0e e3 49 25 3d 30 20 b8 | 4c 25 20 0d 01 b8 16 42 |..I%=0 .|L% ....B|
|00000380| 25 28 49 25 29 3d 30 3a | 58 25 28 49 25 29 3d 30 |%(I%)=0:|X%(I%)=0|
|00000390| 20 0d 01 c2 06 ed 20 0d | 01 cc 0a 50 32 25 3d 31 | ..... .|...P2%=1|
|000003a0| 20 0d 01 d6 1b 42 25 28 | 31 29 3d 42 25 3a 45 25 | ....B%(|1)=B%:E%|
|000003b0| 3d 58 25 3a f2 64 69 76 | 62 62 65 20 0d 01 e0 0e |=X%:.div|bbe ....|
|000003c0| e3 49 25 3d 31 20 b8 4c | 25 20 0d 01 ea 12 58 25 |.I%=1 .L|% ....X%|
|000003d0| 28 49 25 29 3d 42 25 28 | 49 25 29 20 0d 01 f4 06 |(I%)=B%(|I%) ....|
|000003e0| ed 20 0d 01 fe 06 3a 20 | 0d 02 08 2c 46 25 3d 2d |. ....: |...,F%=-|
|000003f0| 31 3a e7 58 25 3c 31 34 | 37 3a 45 25 3d 58 25 2a |1:.X%<14|7:E%=X%*|
|00000400| 58 25 3a 54 25 3d 30 3a | 8b 45 25 3d 58 25 3a 54 |X%:T%=0:|.E%=X%:T|
|00000410| 25 3d 31 20 0d 02 12 2e | 4a 25 3d 31 3a f5 20 4a |%=1 ....|J%=1:. J|
|00000420| 25 3d 4a 25 2b 32 3a f1 | 8a 32 34 2c 56 25 2b 31 |%=J%+2:.|.24,V%+1|
|00000430| 29 c2 22 20 20 20 20 20 | 22 2b c3 4a 25 2c 36 29 |)."     |"+.J%,6)|
|00000440| 3b 20 0d 02 1c 18 e3 4e | 25 3d 30 20 b8 54 25 3a |; .....N|%=0 .T%:|
|00000450| f2 64 69 76 62 62 65 3a | ed 20 0d 02 26 0c f2 64 |.divbbe:|. ..&..d|
|00000460| 69 76 61 62 6a 20 0d 02 | 30 19 e7 46 25 3d 31 3a |ivabj ..|0..F%=1:|
|00000470| f2 61 64 64 78 61 3a 8b | f2 73 75 62 78 61 20 0d |.addxa:.|.subxa .|
|00000480| 02 3a 0d 46 25 3d 46 25 | 2a 2d 31 20 0d 02 44 0c |.:.F%=F%|*-1 ..D.|
|00000490| fd 50 32 25 3e 4c 25 20 | 0d 02 4e 06 e1 20 0d 02 |.P2%>L% |..N.. ..|
|000004a0| 58 06 3a 20 0d 02 62 21 | f4 20 44 49 56 49 44 45 |X.: ..b!|. DIVIDE|
|000004b0| 28 42 2c 42 2c 45 29 20 | 2d 20 42 5b 5d 3a 3d 42 |(B,B,E) |- B[]:=B|
|000004c0| 5b 5d 2f 45 20 0d 02 6c | 0d dd f2 64 69 76 62 62 |[]/E ..l|...divbb|
|000004d0| 65 20 0d 02 76 09 43 25 | 3d 30 20 0d 02 80 10 e3 |e ..v.C%|=0 .....|
|000004e0| 49 25 3d 50 32 25 20 b8 | 4c 25 20 0d 02 8a 12 51 |I%=P2% .|L% ....Q|
|000004f0| 31 25 3d 42 25 28 49 25 | 29 2b 43 25 20 0d 02 94 |1%=B%(I%|)+C% ...|
|00000500| 11 51 25 3d a8 28 51 31 | 25 2f 45 25 29 20 0d 02 |.Q%=.(Q1|%/E%) ..|
|00000510| 9e 0e 42 25 28 49 25 29 | 3d 51 25 20 0d 02 a8 0d |..B%(I%)|=Q% ....|
|00000520| 53 25 3d 51 25 2a 45 25 | 20 0d 02 b2 13 43 25 3d |S%=Q%*E%| ....C%=|
|00000530| 28 51 31 25 2d 53 25 29 | 2a 42 25 20 0d 02 bc 06 |(Q1%-S%)|*B% ....|
|00000540| ed 20 0d 02 c6 19 e7 42 | 25 28 50 32 25 29 3d 30 |. .....B|%(P2%)=0|
|00000550| 3a 50 32 25 3d 50 32 25 | 2b 31 20 0d 02 d0 06 e1 |:P2%=P2%|+1 .....|
|00000560| 20 0d 02 da 06 3a 20 0d | 02 e4 22 f4 20 44 49 56 | ....: .|..". DIV|
|00000570| 49 44 45 20 28 41 2c 42 | 2c 4a 29 20 2d 20 41 5b |IDE (A,B|,J) - A[|
|00000580| 5d 3a 3d 42 5b 5d 2f 4a | 20 0d 02 ee 0d dd f2 64 |]:=B[]/J| ......d|
|00000590| 69 76 61 62 6a 20 0d 02 | f8 09 43 25 3d 30 20 0d |ivabj ..|..C%=0 .|
|000005a0| 03 02 10 e3 49 25 3d 50 | 32 25 20 b8 4c 25 20 0d |....I%=P|2% .L% .|
|000005b0| 03 0c 12 51 31 25 3d 42 | 25 28 49 25 29 2b 43 25 |...Q1%=B|%(I%)+C%|
|000005c0| 20 0d 03 16 11 51 25 3d | a8 28 51 31 25 2f 4a 25 | ....Q%=|.(Q1%/J%|
|000005d0| 29 20 0d 03 20 0e 41 25 | 28 49 25 29 3d 51 25 20 |) .. .A%|(I%)=Q% |
|000005e0| 0d 03 2a 16 43 25 3d 28 | 51 31 25 2d 51 25 2a 4a |..*.C%=(|Q1%-Q%*J|
|000005f0| 25 29 2a 42 25 20 0d 03 | 34 06 ed 20 0d 03 3e 06 |%)*B% ..|4.. ..>.|
|00000600| e1 20 0d 03 48 06 3a 20 | 0d 03 52 1f f4 20 41 44 |. ..H.: |..R.. AD|
|00000610| 44 20 28 58 2c 41 29 20 | 2d 20 58 5b 5d 3a 3d 58 |D (X,A) |- X[]:=X|
|00000620| 5b 5d 2b 41 5b 5d 20 0d | 03 5c 0c dd f2 61 64 64 |[]+A[] .|.\...add|
|00000630| 78 61 20 0d 03 66 09 43 | 25 3d 30 20 0d 03 70 14 |xa ..f.C|%=0 ..p.|
|00000640| e3 49 25 3d 4c 25 20 b8 | 50 32 25 20 88 2d 31 20 |.I%=L% .|P2% .-1 |
|00000650| 0d 03 7a 18 53 25 3d 58 | 25 28 49 25 29 2b 41 25 |..z.S%=X|%(I%)+A%|
|00000660| 28 49 25 29 2b 43 25 20 | 0d 03 84 20 e7 53 25 3e |(I%)+C% |... .S%>|
|00000670| 3d 42 25 3a 53 25 3d 53 | 25 2d 42 25 3a 43 25 3d |=B%:S%=S|%-B%:C%=|
|00000680| 31 3a 8b 43 25 3d 30 20 | 0d 03 8e 0e 58 25 28 49 |1:.C%=0 |....X%(I|
|00000690| 25 29 3d 53 25 20 0d 03 | 98 06 ed 20 0d 03 a2 1a |%)=S% ..|... ....|
|000006a0| e7 43 25 3d 31 3a 58 25 | 28 49 25 29 3d 58 25 28 |.C%=1:X%|(I%)=X%(|
|000006b0| 49 25 29 2b 31 20 0d 03 | ac 06 e1 20 0d 03 b6 06 |I%)+1 ..|... ....|
|000006c0| 3a 20 0d 03 c0 24 f4 20 | 53 55 42 54 52 41 43 54 |: ...$. |SUBTRACT|
|000006d0| 20 28 58 2c 41 29 20 2d | 20 58 5b 5d 3a 3d 58 5b | (X,A) -| X[]:=X[|
|000006e0| 5d 2d 41 5b 5d 20 0d 03 | ca 0c dd f2 73 75 62 78 |]-A[] ..|....subx|
|000006f0| 61 20 0d 03 d4 09 43 25 | 3d 30 20 0d 03 de 14 e3 |a ....C%|=0 .....|
|00000700| 49 25 3d 4c 25 20 b8 50 | 32 25 20 88 2d 31 20 0d |I%=L% .P|2% .-1 .|
|00000710| 03 e8 11 53 25 3d 41 25 | 28 49 25 29 2b 43 25 20 |...S%=A%|(I%)+C% |
|00000720| 0d 03 f2 2b e7 58 25 28 | 49 25 29 3c 53 25 3a 58 |...+.X%(|I%)<S%:X|
|00000730| 25 28 49 25 29 3d 58 25 | 28 49 25 29 2b 42 25 3a |%(I%)=X%|(I%)+B%:|
|00000740| 43 25 3d 31 3a 8b 43 25 | 3d 30 20 0d 03 fc 15 58 |C%=1:.C%|=0 ....X|
|00000750| 25 28 49 25 29 3d 58 25 | 28 49 25 29 2d 53 25 20 |%(I%)=X%|(I%)-S% |
|00000760| 0d 04 06 06 ed 20 0d 04 | 10 1a e7 43 25 3d 31 3a |..... ..|...C%=1:|
|00000770| 58 25 28 49 25 29 3d 58 | 25 28 49 25 29 2d 31 20 |X%(I%)=X|%(I%)-1 |
|00000780| 0d 04 1a 06 e1 20 0d 04 | 24 06 3a 20 0d 04 2e 22 |..... ..|$.: ..."|
|00000790| f4 20 4d 55 4c 54 49 50 | 4c 59 20 28 58 2c 4d 29 |. MULTIP|LY (X,M)|
|000007a0| 20 2d 20 58 5b 5d 3a 3d | 58 5b 5d 2a 4d 20 0d 04 | - X[]:=|X[]*M ..|
|000007b0| 38 0c dd f2 6d 75 6c 78 | 6d 20 0d 04 42 09 43 25 |8...mulx|m ..B.C%|
|000007c0| 3d 30 20 0d 04 4c 12 e3 | 49 25 3d 4c 25 20 b8 31 |=0 ..L..|I%=L% .1|
|000007d0| 20 88 2d 31 20 0d 04 56 | 14 53 25 3d 58 25 28 49 | .-1 ..V|.S%=X%(I|
|000007e0| 25 29 2a 4d 25 2b 43 25 | 20 0d 04 60 2b e7 53 25 |%)*M%+C%| ..`+.S%|
|000007f0| 3e 3d 42 25 3a 43 25 3d | a8 28 53 25 2f 42 25 29 |>=B%:C%=|.(S%/B%)|
|00000800| 3a 53 25 3d 53 25 2d 43 | 25 2a 42 25 3a 8b 20 43 |:S%=S%-C|%*B%:. C|
|00000810| 25 3d 30 20 0d 04 6a 0e | 58 25 28 49 25 29 3d 53 |%=0 ..j.|X%(I%)=S|
|00000820| 25 20 0d 04 74 06 ed 20 | 0d 04 7e 0d 58 25 28 30 |% ..t.. |..~.X%(0|
|00000830| 29 3d 43 25 20 0d 04 88 | 06 e1 20 0d 04 92 06 3a |)=C% ...|.. ....:|
|00000840| 20 0d 04 9c 1f f4 20 41 | 44 44 20 28 59 2c 58 29 | ..... A|DD (Y,X)|
|00000850| 20 2d 20 59 5b 5d 3a 3d | 59 5b 5d 2b 58 5b 5d 20 | - Y[]:=|Y[]+X[] |
|00000860| 0d 04 a6 0c dd f2 61 64 | 64 79 78 20 0d 04 b0 09 |......ad|dyx ....|
|00000870| 43 25 3d 30 20 0d 04 ba | 12 e3 49 25 3d 4c 25 20 |C%=0 ...|..I%=L% |
|00000880| b8 31 20 88 2d 31 20 0d | 04 c4 18 53 25 3d 59 25 |.1 .-1 .|...S%=Y%|
|00000890| 28 49 25 29 2b 58 25 28 | 49 25 29 2b 43 25 20 0d |(I%)+X%(|I%)+C% .|
|000008a0| 04 ce 20 e7 53 25 3e 3d | 42 25 3a 53 25 3d 53 25 |.. .S%>=|B%:S%=S%|
|000008b0| 2d 42 25 3a 43 25 3d 31 | 3a 8b 43 25 3d 30 20 0d |-B%:C%=1|:.C%=0 .|
|000008c0| 04 d8 0e 59 25 28 49 25 | 29 3d 53 25 20 0d 04 e2 |...Y%(I%|)=S% ...|
|000008d0| 06 ed 20 0d 04 ec 19 59 | 25 28 30 29 3d 59 25 28 |.. ....Y|%(0)=Y%(|
|000008e0| 30 29 2b 58 25 28 30 29 | 2b 43 25 20 0d 04 f6 06 |0)+X%(0)|+C% ....|
|000008f0| e1 20 0d 05 00 06 3a 20 | 0d 05 0a 25 f4 20 53 55 |. ....: |...%. SU|
|00000900| 42 54 52 41 43 54 20 28 | 59 2c 58 29 20 2d 20 20 |BTRACT (|Y,X) -  |
|00000910| 59 5b 5d 3a 3d 59 5b 5d | 2d 58 5b 5d 20 0d 05 14 |Y[]:=Y[]|-X[] ...|
|00000920| 0c dd f2 73 75 62 79 78 | 20 0d 05 1e 09 43 25 3d |...subyx| ....C%=|
|00000930| 30 20 0d 05 28 12 e3 49 | 25 3d 4c 25 20 b8 31 20 |0 ..(..I|%=L% .1 |
|00000940| 88 2d 31 20 0d 05 32 11 | 53 25 3d 58 25 28 49 25 |.-1 ..2.|S%=X%(I%|
|00000950| 29 2b 43 25 20 0d 05 3c | 2b e7 59 25 28 49 25 29 |)+C% ..<|+.Y%(I%)|
|00000960| 3c 53 25 3a 59 25 28 49 | 25 29 3d 59 25 28 49 25 |<S%:Y%(I|%)=Y%(I%|
|00000970| 29 2b 42 25 3a 43 25 3d | 31 3a 8b 43 25 3d 30 20 |)+B%:C%=|1:.C%=0 |
|00000980| 0d 05 46 15 59 25 28 49 | 25 29 3d 59 25 28 49 25 |..F.Y%(I|%)=Y%(I%|
|00000990| 29 2d 53 25 20 0d 05 50 | 06 ed 20 0d 05 5a 19 59 |)-S% ..P|.. ..Z.Y|
|000009a0| 25 28 30 29 3d 59 25 28 | 30 29 2d 58 25 28 30 29 |%(0)=Y%(|0)-X%(0)|
|000009b0| 2d 43 25 20 0d 05 64 06 | e1 20 0d 05 6e 06 3a 20 |-C% ..d.|. ..n.: |
|000009c0| 0d 05 78 0d f4 20 4f 55 | 54 50 55 54 20 0d 05 82 |..x.. OU|TPUT ...|
|000009d0| 0a dd f2 6f 75 74 20 0d | 05 8c 19 f1 22 50 49 3d |...out .|...."PI=|
|000009e0| 2e 2e 2e 22 27 c3 59 25 | 28 30 29 22 2e 22 3b 20 |..."'.Y%|(0)"."; |
|000009f0| 0d 05 96 0a 59 24 3d 22 | 22 20 0d 05 a0 09 4a 25 |....Y$="|" ....J%|
|00000a00| 3d 30 20 0d 05 aa 0b f5 | 20 4b 25 3d 30 20 0d 05 |=0 .....| K%=0 ..|
|00000a10| b4 16 f5 20 4a 25 3d 4a | 25 2b 31 3a 4b 25 3d 4b |... J%=J|%+1:K%=K|
|00000a20| 25 2b 31 20 0d 05 be 26 | 41 24 3d c2 22 30 30 30 |%+1 ...&|A$=."000|
|00000a30| 30 30 22 2b c3 28 59 25 | 28 4a 25 29 29 2c 35 29 |00"+.(Y%|(J%)),5)|
|00000a40| 3a 59 24 3d 59 24 2b 41 | 24 20 0d 05 c8 14 fd 4b |:Y$=Y$+A|$ .....K|
|00000a50| 25 3d 31 30 20 84 4a 25 | 3d 4c 25 2d 32 20 0d 05 |%=10 .J%|=L%-2 ..|
|00000a60| d2 0f f1 8a 32 29 3b 3a | 50 25 3d 31 20 0d 05 dc |....2);:|P%=1 ...|
|00000a70| 30 f5 20 f1 c1 59 24 2c | 50 25 2c 31 30 29 22 20 |0. ..Y$,|P%,10)" |
|00000a80| 22 3b 3a 50 25 3d 50 25 | 2b 31 30 3a fd 50 25 3d |";:P%=P%|+10:.P%=|
|00000a90| 35 31 20 84 50 25 3e a9 | 59 24 3a f1 20 0d 05 e6 |51 .P%>.|Y$:. ...|
|00000aa0| 0a 59 24 3d 22 22 20 0d | 05 f0 0d fd 4a 25 3d 4c |.Y$="" .|....J%=L|
|00000ab0| 25 2d 32 20 0d 05 fa 0e | f1 c4 35 36 2c 22 2d 22 |%-2 ....|..56,"-"|
|00000ac0| 29 20 0d 06 04 06 e1 20 | 0d 06 0e 06 3a 20 0d ff |) ..... |....: ..|
+--------+-------------------------+-------------------------+--------+--------+